home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
biz
/
dopus
/
ViewToolRexx.lha
/
ViewTool0.9.dopus5
< prev
Wrap
Text File
|
1999-02-21
|
3KB
|
58 lines
/* Anzeige von jpg-Dateien mit ViewTool aus DOpus5 heraus
von Peter Hauke
e.Mail: twilight@rcs.urz.tu-dresden.de
WWW: http://rcswww.urz.tu-dresden.de/~twilight
andere Tools: MaschCalc (Aminet:misc/sci/maschcal.lha)
$VER: ViewTool.dopus5 Version 0.9
(21.02.1999)
ViewTool aus dem Aminet ist ein jpg-Anzeiger mit PPC-Unterstützung
Dafür läßt es sich jedoch nicht von der Shell aus bedienen, sodaß
ein einfaches Einbinden in DirectoryOpus nicht möglich ist, wie man
es z.B. von ViewTek oder FastJPEG gewöhnt ist.
Da das mitgelieferte ARexx-Script bei ViewTool nicht viel taugt und
zudem fehlerbehaftet ist (die auch in der Anleitung auftauchen)
gibts hier ein neues - es ist mein erster Versuch in ARexx, also
haut nicht alle auf mir rum, wenn was nicht stimmt!
*/
OPTIONS RESULTS
ADDRESS 'DOPUS.1' /* Opus ist Objekt der Begierde */
lister query source stem source_handle /* Opus ermittelt aktuelle Lister */
lister query source_handle.0 Path /* Pfad des aktuellen Listers ermittelt ...*/
pfad=RESULT /* ... und in Variable "pfad" speichern */
lister query source_handle.0 selfiles stem files /* Angewählte Dateinamen ermitteln und in Feld "files" abspeichern */
do a=0 to files.count-1 /* Schleifenbeginn: von 0 bis files.count-1
in files.count wird von opus die anzahl der angewählten files gespeichert,
die zählung beginnt jedoch bei 0 (daher auch files.count-1) */
lister select source_handle.0 files.a OFF /* alle Files im Lister deselektieren */
end
lister refresh source_handle.0 full /* Lister refreshen, damit Deselktion wirklich statt findet */
do i=0 to files.count-1 /* Schleifenbeginn: von 0 bis files.count-1 */
dateiname=pfad||files.i /* Dateipfad wird aus "pfad" und entsprechendem "files" eintrag zusammengesetzt */
lister select source_handle.0 files.i ON /* gerade angezeigte Datei im Lister selektieren (erst nach REFRESH wirksam) */
lister refresh source_handle.0 full /* Lister refreshen, damit wirklich selektiert wird */
ADDRESS 'ViewToolRexx' /* ViewTool-Rexxport aufrufen */
LOADIMAGE 'file='dateiname /* ViewTool soll Datei laden */
ADDRESS 'DOPUS.1' /* Opus-Rexxport aufrufen */
lister select source_handle.0 files.i OFF /* das zuletzt angezeige Bild wird nun im Lister deselektiert, refresh wird in */
/* Schleifendurchgang "nachgeholt" */
End /* Schleifenende */
lister refresh source_handle.0 full /* Lister refreshen, damit das allerletzte Bild wirklich deselektiert wird */
EXIT(0) /* Programmende */